home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / pkey12_1.zip / GML.LSP < prev    next >
Text File  |  1992-09-13  |  639b  |  19 lines
  1. ;Global move layers (pick an object on the layer you want to move
  2. ;and specify destination layer)
  3. ;
  4. ;
  5. (defun C:gml ()
  6. (princ "\nPick an object on the layer to move. ")
  7. (setq oer *error* *error* err2)
  8. (setq ss (ssget))
  9. (setq ut1(getstring "\nLayer to move entities to : "))
  10. (setq counter 0)
  11. (prompt "Moving layer...")
  12. (setq e (ssname ss counter))
  13. (setq l (cdr (assoc 8 (entget e))))
  14. (setq S (ssget "X" (list (cons 8 l))))
  15. (command "change" s "" "p" "la" ut1 "")
  16. (setq counter (+ counter 1))
  17. (princ))
  18. (princ "\nType GML to execute group move layer.")
  19. (princ "\nThis will move all entities on layer selected to new layer.")